home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / MAIN2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-03-22  |  4.1 KB  |  135 lines
  1. VERSION 2.00
  2. Begin Form SessionForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Mail X Example Read Msg"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1395
  7.    ClientTop       =   1650
  8.    ClientWidth     =   5490
  9.    Height          =   4395
  10.    Left            =   1350
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   5490
  14.    Top             =   1320
  15.    Width           =   5580
  16.    Begin MMsg MMsg1 
  17.       BindString      =   "MSess1"
  18.       BodyAsFile      =   0   'False
  19.       DisplayErrors   =   0   'False
  20.       DisplaySendDialog=   0   'False
  21.       EnvelopeOnly    =   0   'False
  22.       FetchMsgType    =   ""
  23.       Height          =   420
  24.       Left            =   2520
  25.       MarkAsRead      =   0   'False
  26.       SortMsg         =   0   'False
  27.       SuppressAttach  =   -1  'True
  28.       TimeFormat      =   "%m/%d/%y"
  29.       Top             =   3480
  30.       UnreadOnly      =   0   'False
  31.       Width           =   420
  32.       WorkingMsg      =   0  '0- Inbox Message
  33.    End
  34.    Begin MSess MSess1 
  35.       DefaultPath     =   ""
  36.       DisplayErrors   =   -1  'True
  37.       DownLoadMsg     =   -1  'True
  38.       Height          =   420
  39.       Left            =   120
  40.       LogonUI         =   -1  'True
  41.       Mail_Type       =   0  '0- NONE
  42.       MapiCustomLibName=   ""
  43.       NewSession      =   -1  'True
  44.       Password        =   ""
  45.       Top             =   3480
  46.       User            =   ""
  47.       Width           =   420
  48.    End
  49.    Begin MForm MForm1 
  50.       Height          =   255
  51.       Left            =   3480
  52.       MXFormName      =   "FormTag2"
  53.       Top             =   3720
  54.       Width           =   1815
  55.    End
  56.    Begin CommandButton BtnOpen 
  57.       Caption         =   "Open Msg"
  58.       Height          =   375
  59.       Left            =   3120
  60.       TabIndex        =   2
  61.       Top             =   3480
  62.       Width           =   1335
  63.    End
  64.    Begin CommandButton BtnEnd 
  65.       Caption         =   "End"
  66.       Height          =   375
  67.       Left            =   1080
  68.       TabIndex        =   1
  69.       Top             =   3480
  70.       Width           =   1335
  71.    End
  72.    Begin SSPanel Panel3D1 
  73.       BackColor       =   &H00C0C0C0&
  74.       BevelInner      =   1  'Inset
  75.       BorderWidth     =   5
  76.       Font3D          =   0  'None
  77.       Height          =   3300
  78.       Left            =   180
  79.       TabIndex        =   0
  80.       Top             =   75
  81.       Width           =   5130
  82.       Begin ListBox MsgList 
  83.          Height          =   2955
  84.          Left            =   165
  85.          TabIndex        =   3
  86.          Top             =   150
  87.          Width           =   4830
  88.       End
  89.    End
  90. Sub BtnEnd_Click ()
  91.     End
  92. End Sub
  93. Sub BtnOpen_Click ()
  94.     Index = MsgList.ListIndex
  95.     If Index <> -1 Then
  96.         Load MsgForm
  97.         MsgForm.MMsg1.FetchMsg = Index + 1
  98.         MsgForm.szSubject = MsgForm.MMsg1.Subject
  99.         MsgForm.szNoteText = MsgForm.MMsg1.NoteText
  100.         MsgForm.szTime = MsgForm.MMsg1.TimeReceived
  101.         MsgForm.szMsgID = MsgForm.MMsg1.MsgID
  102.         MsgForm.MReci1.FetchRecipient = True
  103.         MsgForm.szOriginator = MsgForm.MReci1.RecipientName
  104.         MsgForm.MFile1.FetchFile = True
  105.         FileNum = MsgForm.MFile1.FileCount
  106.         For Index = 1 To FileNum
  107.             MsgForm.MFile1.FileNum = Index
  108.             MsgForm.szFileList.AddItem MsgForm.MFile1.FileName
  109.         Next
  110.         If FileNum > 0 Then MsgForm.szFileList.ListIndex = 0
  111.         MsgForm.Show 1
  112.     Else
  113.         MsgBox "Select a Mail Message"
  114.     End If
  115. End Sub
  116. Sub Command2_Click ()
  117. End Sub
  118. Sub Form_Load ()
  119.     Load SystemX
  120.     SystemX.MSMAIL = True
  121.     SystemX.Show 1
  122.     MSess1.Logon = True
  123.     If MSess1.Logon = False Then End
  124.     SessionForm.MousePointer = 11
  125.     MsgList.Clear
  126.     MMsg1.Action = ACTION_FINDFIRST
  127.     Do
  128.         If MMsg1.FetchMsg <> 0 Then
  129.             MsgList.AddItem MMsg1.Subject
  130.             MMsg1.Action = ACTION_FINDNEXT
  131.         End If
  132.     Loop While MMsg1.FetchMsg <> 0
  133.     SessionForm.MousePointer = 1
  134. End Sub
  135.